program laurentian2
use my_own_da
type(my_taylor) x,z
type(my_taylor) dx_1

my_order=3
dx_1=1.d0.mono.1
x=3.1415926535897932_8/6.0_8+dx_1
z=sin(dx_1)
z=sin(x)
call print(z,6)

write(6,*) " hit return to end "
pause
end program laurentian2
